home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / pcpil / getfont.pim < prev    next >
Text File  |  1987-11-30  |  368b  |  17 lines
  1. R: * * * * GETFONT MACRO * * * *
  2. ?REM Enter the name of the font to load (omit the .FMF suffix)
  3. C:%B="?F"!!".FMF"
  4. C:FONTZ=FIZ(%B)
  5. T(FONTZ<=0):Missing font file $%B
  6. EC:
  7. ?REM Enter string variable name to contain font or just ENTER for name FONT$
  8. R:?S
  9. ?IF S=
  10. ?SET S=FONT$
  11. ?ON
  12. D:?S(FONTZ)
  13. X:"FX:"!!%B
  14. FI:0,?S
  15. FX:
  16. R: * * * * * END OF GETFONT MACRO * * * *
  17.